home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / igmkit10.zip / IGMMAKE.ZIP / IGMMAKE.PAS < prev   
Pascal/Delphi Source File  |  1997-06-20  |  2KB  |  74 lines
  1. {This source is distributed with the IGMKit, and WILL NOT BE DOCUMENTED!}
  2.  
  3.  
  4. program MakeData;
  5.  
  6. uses Crt, Dos;
  7.  
  8. type IGMInfo=record
  9.         Name: string[60];
  10.         Author: string[60];
  11.         EXE: string;
  12.         Config: string;
  13.         NumOpts: integer;
  14.         OptText: array [1..10] of string;
  15.         OptType: array [1..10] of Integer;
  16.     end;
  17.  
  18.  IFile=file of IGMInfo;
  19.  
  20. var IGMF: Ifile;
  21.     TInt, TM, tim: integer;
  22.     IGM: IGMInfo;
  23.     TChr: char;
  24. begin
  25.  
  26.     ClrScr;
  27.     assign (IGMF, 'IGMEDIT.DAT');
  28.     rewrite(IGMF);
  29.     with IGM do
  30.       begin
  31.         Write('Enter Name of IGM: ');
  32.         Readln(Name);
  33.         Write('Author: ');
  34.         Readln(Author);
  35.         Write('Main EXE Name (ex PHONETAP.EXE): ');
  36.         Readln(EXE);
  37.         Write('CONFIG File Name (ex PHONE.CFG): ');
  38.         Readln(Config);
  39.         for Tim:=1 to 10 do
  40.             begin
  41.                 Write('CONFIG Line ', Tim,' (''NONE'' quits): ');
  42.                 Readln(OptText[Tim]);
  43.                 if OPtText[Tim]='NONE' then break;
  44.                 Writeln;
  45.                 Writeln('What type of option');
  46.                 Writeln('0 - Oops, messed up');
  47.                 Writeln('1 - Find HACKER.EXE');
  48.                 Writeln('2 - Find ',EXE);
  49.                 Writeln('3 - Variable');
  50.                 Writeln;
  51.                 repeat
  52.                     TChr:=Readkey;
  53.                 until (TChr='0') or (TChr='1') or (TChr='2') or (TChr='3') ;
  54.                 if TChr='0' then
  55.                     Tim:=TIm-1
  56.                 else
  57.                     begin
  58.                         Val(TChr, Tint, TM);
  59.                         OptType[Tim]:=Tint;
  60.                     end;
  61.                end;
  62.  
  63.         IGM.NumOpts:=Tim-1;
  64.         for TM:=Tim to 10 do
  65.             OptText[Tim]:='NONE';
  66.  
  67.         for TM:=Tim to 10 do
  68.             OptType[Tim]:=0;
  69.       end;
  70.  
  71.     Write(IGMF, IGM);
  72.     close(IGMF);
  73. end.
  74.